home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgs.dir / Internal_17_score--gårPåStället.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  937 b   |  43 lines
  1. property tix, tixV, zP, mmV, horseSprite, Counter
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   gmObject.backCounter = 30
  6.   Counter = 0
  7.   horseSprite = gmObject.horseSprites[3]
  8.   tixV = 4
  9.   tix = the ticks + tixV
  10. end
  11.  
  12. on exitFrame me
  13.   Counter = Counter + 1
  14.   if Counter > 20 then
  15.     gmObject.goBack()
  16.     Counter = 0
  17.   end if
  18.   if (gmObject.stopSprite = gmObject.riverSprite) or (gmObject.stopSprite = gmObject.fenceSprite) then
  19.     if gmObject.overAllSpeed = 1 then
  20.       sound(1).play(member("wet", 1))
  21.       updateStage()
  22.     else
  23.       sound(1).play(member("singapore", 1))
  24.       updateStage()
  25.     end if
  26.     repeat while soundBusy(1)
  27.     end repeat
  28.     go("end" & string(gmObject.overAllSpeed))
  29.   end if
  30.   go(the frame)
  31. end
  32.  
  33. on idle
  34.   if the keyDownScript = EMPTY then
  35.     zP = horseSprite.locH
  36.     if the ticks > tix then
  37.       mmV = (the mouseH - zP) / 15
  38.       gmObject.mouseHX(mmV)
  39.       tix = the ticks + tixV
  40.     end if
  41.   end if
  42. end
  43.